'This is the proper way to close all the forms in your application. Some say to just call End but that just crashes the program without raising an error

Private Sub CloseAllForms()
    Dim frm as Form
    'First we want to loop through all the
    'Forms and close them (We close the current Form last)
    For Each frm In Forms
       'Make sure we arent looking at the current Form
       If frm.hWnd <> Me.hWnd Then  
           'Unload this Form
           Unload frm
           Set frm = Nothing
       End If
   'Now get the next Form
   Next frm

   'Now unload the current Form
   Unload Me
End Sub